home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Business Assistant
/
Business Assistant.iso
/
home
/
chkmstr
/
chexrun.prg
< prev
next >
Wrap
Text File
|
1990-03-05
|
5KB
|
116 lines
IF ISCOLOR()
SET COLOR TO W/B,W/R,BG
ENDIF
SET FUNCTION 9 TO "DO CHEXMENU;"
SET TALK OFF
CLEAR
TEXT
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% CHEX-MASTER Version 2.0 Written and produced by: %%
%% * * * * %%
%% TOTAL LOGISTICS CONSULTING * * * %%
%% 565 PLEASANT STREET We Serve YOU With * TLC * %%
%% CHAMBERSBURG PA. 17201 (c) * * %%
%% COMPU-SERVE ID# 71650-3665 * * %%
%% * %%
%% Copyright (c) Total Logistics Consulting 1989. All Rights Reserved. %%
%% CHEX-MASTER and LOGO are trademarks of Total Logistics Consulting. %%
%% %%
%% This program is a "SHARE-WARE" package. It is NOT FREEware nor is it %%
%% Public Domain. Please copy and distribute the entire package "AS IS". %%
%% You are NOT authorized to modify this program package in any way !!! %%
%% Use it and see if you are satisfied with its performance ! If you are %%
%% and it meets your needs, please send $ 24 plus $ 5 S+H to the above %%
%% address. More details on this inside. If not, I would really like to %%
%% hear your suggestions. Use above address or COMPU-SERVE number. %%
%% %%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
TYPE "Y" IF YOU ACCEPT THE ABOVE AGREEMENT, AND WISH TO USE THE PROGRAM.
TYPE "N" TO CANCEL AND RETURN TO D-BASE !!!
ENDTEXT
AGREE=" "
DO WHILE .NOT. (UPPER(AGREE) $ 'YN')
WAIT " " TO AGREE
ENDDO
IF UPPER(AGREE)= "N"
CANCEL
ENDIF
DO WHILE .T.
CLEAR
TEXT
#############################################################################
## ##
## C H E X ----- M A S T E R ##
## ##
## **** OPTION MENU **** ##
## ##
## ##
## { C } RUN CHECK PROGRAM ##
## ##
## { S } RUN SETUP PROGRAM ##
## [ assign check program operating parameters ##
## and values ] ##
## ##
## { D } DISPLAY OPERATING INSTRUCTIONS TO SCREEN ##
## ##
## { P } PRINT OPERATING INSTRUCTIONS TO PRINTER ##
## ##
## { Q } QUIT [ return to D-Base III ] ##
## ##
## ##
## ##
## ##
#############################################################################
ENDTEXT
CHOICE= " "
@21,20 SAY "ENTER YOUR CHOICE" GET CHOICE
READ
CHOICE=UPPER(CHOICE)
DO CASE
CASE CHOICE= "C"
CLEAR
@10,20 SAY "LOADING DATA FILES ------------------------------"
SET PROCEDURE TO CHECK
SET FUNCTION 9 TO "DO CHEXMENU;"
DO CHEXMENU
CASE CHOICE= "S"
CLEAR
@10,20 SAY "LOADING DATA FILES ------------------------------"
SET FUNCTION 9 TO "DO CHEXMENU:"
DO SETUP
CASE CHOICE= "D"
DO CASE
CASE CONFIG="A"
RUN A:LIST A:TEXT.TXT
CASE CONFIG="B"
RUN B:LIST B:TEXT.TXT
CASE CONFIG="C"
RUN C:\CHEXMANG\LIST C:\CHEXMANG\TEXT.TXT
CASE CONFIG="D"
RUN D:\CHEXMANG\LIST D:\CHEXMANG\TEXT.TXT
ENDCASE
CASE CHOICE= "P"
DO CASE
CASE CONFIG="A"
RUN A:TFL A:TEXT.TXT
CASE CONFIG="B"
RUN B:TFL B:TEXT.TXT
CASE CONFIG="C"
RUN C:\CHEXMANG\TFL C:\CHEXMANG\TEXT.TXT
CASE CONFIG="D"
RUN D:\CHEXMANG\TFL D:\CHEXMANG\TEXT.TXT
ENDCASE
CASE CHOICE="Q"
CANCEL
OTHERWISE
@20,15 SAY "**** ENTER { C }, { D }, { P }, { Q }, OR { S } ****"
@21,10 SAY " "
@21,18 SAY "YOU ENTERED" GET CHOICE
ENDCASE
WAIT
ENDDO
RETURN